home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Settings / Grid On⁄Off / Grid On_Off next >
Text File  |  1992-06-08  |  499b  |  34 lines
  1. on startup
  2. set lockscreen to true
  3. if gridsnap = true then
  4.  
  5. set showgrid to false
  6. set gridsnap to false
  7.  
  8. else
  9.  
  10. set displayGuides to true
  11. set showgrid to true
  12. set gridsnap to true
  13.  
  14. end if
  15. set lockscreen to false
  16. end startup
  17.  
  18. on help
  19.  
  20. put  dialog (preload, 128) into thedialog
  21. put "---a\0" into item2
  22. put "---a\1" into item3
  23. put "---a\2" into item4
  24.  
  25.  
  26. repeat forever
  27. get dialog(display, thedialog)
  28. if (it = 1) then exit repeat
  29. end repeat
  30. get dialog(dispose, thedialog)
  31.  
  32. end help
  33.  
  34.      <BÏ